-- card: 8253 from stack: in
-- bmap block id: 8483
-- flags: 4000
-- background id: 8134
-- name: Associate
----- HyperTalk script -----
on initAssoc from
  global doingcard, StackName

  put from into doingcard

  put "put background field" && quote & "Name" & quote && "of" && doingcard && "into card field Name" into tmp
  do tmp
  put "put background field" && quote & "AssocList" & quote && "of" && doingcard && "into card field AssocList" into tmp
  do tmp

  ResHandle "type", StackName
  put SortLines(the result) into card field "resTypes"
  put "" into card field "resType"
  put "" into card field "Select"
  put "" into card field "resNames"
end initAssoc


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=28 top=226 right=308 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: resTypes
----- HyperTalk script -----
on mouseUp
  global StackName

  put ClickLine() into elem
  put line ClickLine() of card field "resTypes" into tmp
  if tmp <> "" then
    put tmp into card field "resType"
    ResHandle "list", StackName, tmp
    put SortLines(the result) into card field "resNames"
    put "" into card field "Select"
  end if
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=97 top=258 right=279 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: resType


-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=153 top=40 right=124 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AssocList


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=40 right=59 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 5 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=152 top=225 right=310 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: resNames
----- HyperTalk script -----
on mouseUp
  put ClickLine() into elem
  put line ClickLine() of card field "resNames" into tmp
  if tmp <> "" then
    put tmp into card field "Select"
  end if
end mouseUp



-- part 6 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=152 top=192 right=211 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Select


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=222 top=133 right=185 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 4895 / 4895
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add
----- HyperTalk script -----
on mouseUp
  if card field "Select" <> "" then
    put card field "resType" && card field "Select" & return after card field "AssocList"
  else
    answer "You must select something first!" with "Oops"
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=370 top=56 right=109 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update
----- HyperTalk script -----
on mouseUp
  global doingcard

  put card field "AssocList" into tmp
  go to doingcard
  put tmp into background field "AssocList"

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=370 top=115 right=168 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No Update
----- HyperTalk script -----
on mouseUp
  global doingcard

  go to doingcard

end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=83 top=78 right=100 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  put "" into card field "AssocList"
end mouseUp



-- part contents for card part 4
----- text -----
ResHandle

-- part contents for card part 1
----- text -----
ALRT
CURS
DITL
DLOG
ICON
snd 
STR#
XCMD
XFCN


-- part contents for card part 3
----- text -----
ALRT RH_rename.a
DLOG RH_rename.d
DITL RH_rename.a
DITL RH_rename.d